MN

# load data
eds_mn <- readOGR(dsn = "Data/eds", layer = "Manhattan_1910")
OGR data source with driver: ESRI Shapefile 
Source: "/Users/grace/Documents/QMSS/RA/19Fall/hnyc_street_dictionary/script/Data/eds", layer: "Manhattan_1910"
with 1480 features
It has 1 fields
lines_mn <- readOGR(dsn = "Data/lines", layer = "centerlines_MN_20190612")
OGR data source with driver: ESRI Shapefile 
Source: "/Users/grace/Documents/QMSS/RA/19Fall/hnyc_street_dictionary/script/Data/lines", layer: "centerlines_MN_20190612"
with 7919 features
It has 22 fields
# load map
tmap_mode("plot")
tmap mode set to plotting
tm_shape(eds_mn) + 
  tm_borders(col = "red", alpha = 1, lwd = 3, lty = 4) +
tm_shape(lines_mn) + 
  tm_lines(col = "blue", lwd = 1) 

BK

eds_bk <- readOGR(dsn = "Data/eds", layer = "Brooklyn_1910")
OGR data source with driver: ESRI Shapefile 
Source: "/Users/grace/Documents/QMSS/RA/19Fall/hnyc_street_dictionary/script/Data/eds", layer: "Brooklyn_1910"
with 1112 features
It has 1 fields
lines_bk <- readOGR(dsn = "Data/lines", layer = "centerlines_BK_20190612")
OGR data source with driver: ESRI Shapefile 
Source: "/Users/grace/Documents/QMSS/RA/19Fall/hnyc_street_dictionary/script/Data/lines", layer: "centerlines_BK_20190612"
with 1748 features
It has 20 fields
# load map
tmap_mode("plot")
tmap mode set to plotting
tm_shape(eds_bk) + 
  tm_borders(col = "red", alpha = 1, lwd = 3, lty = 4) +
tm_shape(lines_bk) + 
  tm_lines(col = "blue", lwd = 1) 

LS0tCnRpdGxlOiAiU2hhcGVmaWxlIgphdXRob3I6ICJDaGFuZyBYdSIKZGF0ZTogIjEwLzE3LzIwMTkiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCmBgYHtyLCBpbmNsdWRlPUZBTFNFfQprbml0cjo6b3B0c19jaHVuayRzZXQoZXJyb3IgPSBUUlVFKQprbml0cjo6b3B0c19jaHVuayRzZXQoY2FjaGUgPSBGKQprbml0cjo6b3B0c19jaHVuayRzZXQobWVzc2FnZSA9IEZBTFNFKQprbml0cjo6b3B0c19jaHVuayRzZXQod2FybmluZyA9IEZBTFNFKQpvcHRpb25zKG1jLmNvcmVzID0gcGFyYWxsZWw6OmRldGVjdENvcmVzKCkpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkocmFzdGVyKQpsaWJyYXJ5KHJnZGFsKQpsaWJyYXJ5KHRtYXApCmxpYnJhcnkoZ2VvanNvbmlvKQpsaWJyYXJ5KGdlb2pzb25SKQpsaWJyYXJ5KHNwKQpsaWJyYXJ5KGxlYWZsZXQpCmxpYnJhcnkoZ2dtYXApCmxpYnJhcnkoY3Jvc3N0YWxrKQpsaWJyYXJ5KFJDb2xvckJyZXdlcikKYGBgCgojIE1OCmBgYHtyfQojIGxvYWQgZGF0YQplZHNfbW4gPC0gcmVhZE9HUihkc24gPSAiRGF0YS9lZHMiLCBsYXllciA9ICJNYW5oYXR0YW5fMTkxMCIpCmxpbmVzX21uIDwtIHJlYWRPR1IoZHNuID0gIkRhdGEvbGluZXMiLCBsYXllciA9ICJjZW50ZXJsaW5lc19NTl8yMDE5MDYxMiIpCmBgYAoKYGBge3IsIGZpZy53aWR0aCA9IDE1LCBmaWcuaGVpZ2h0ID0gMzB9CiMgbG9hZCBtYXAKdG1hcF9tb2RlKCJwbG90IikKdG1fc2hhcGUoZWRzX21uKSArIAogIHRtX2JvcmRlcnMoY29sID0gInJlZCIsIGFscGhhID0gMSwgbHdkID0gMywgbHR5ID0gNCkgKwp0bV9zaGFwZShsaW5lc19tbikgKyAKICB0bV9saW5lcyhjb2wgPSAiYmx1ZSIsIGx3ZCA9IDEpIApgYGAKCgojIEJLCmBgYHtyfQplZHNfYmsgPC0gcmVhZE9HUihkc24gPSAiRGF0YS9lZHMiLCBsYXllciA9ICJCcm9va2x5bl8xOTEwIikKbGluZXNfYmsgPC0gcmVhZE9HUihkc24gPSAiRGF0YS9saW5lcyIsIGxheWVyID0gImNlbnRlcmxpbmVzX0JLXzIwMTkwNjEyIikKYGBgCgpgYGB7ciwgZmlnLndpZHRoID0gMTUsIGZpZy5oZWlnaHQgPSAzMH0KIyBsb2FkIG1hcAp0bWFwX21vZGUoInBsb3QiKQp0bV9zaGFwZShlZHNfYmspICsgCiAgdG1fYm9yZGVycyhjb2wgPSAicmVkIiwgYWxwaGEgPSAxLCBsd2QgPSAzLCBsdHkgPSA0KSArCnRtX3NoYXBlKGxpbmVzX2JrKSArIAogIHRtX2xpbmVzKGNvbCA9ICJibHVlIiwgbHdkID0gMSkgCmBgYAoKCgoKCgoKCgoKCgoKCg==